home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xdmetex.lha / s / StartTeX < prev   
AmigaDOS Script File  |  1995-09-07  |  3KB  |  90 lines
  1. .key directory,file
  2. .bra {
  3. .ket }
  4. ;Voreinstellung für das Verzeichnis
  5. set DefDir "TeX:texte"
  6. ;
  7. ; Installieren und Starten von TeX          $VER StartTeX 1.1 (22.3.94)
  8. ;
  9. ; Mögliche Parameter:
  10. ; directory   - Verzeichnis, das das neue Arbeitsverzeichnis werden soll.
  11. ;               Man kann entweder den vollen Pfadnamen, den relativen
  12. ;               Pfadnamen zum aktuellen Verzeichnis oder den relativen
  13. ;               Pfadnamen zu "$DefDir/" angeben.
  14. ;               Falls das aktuelle Verzeichnis beibehalten werden soll, muß
  15. ;               "." eingegeben werden.
  16. ;               Falls nichts angegeben wird, erscheint ein Requester, mit
  17. ;               dessen Hilfe man das Verzeichnis einstellen kann.
  18. ; file        - Text, der im Editor geladen werden soll.
  19. ;               Dabei wird ".tex" automatisch ergänzt. Es reicht also
  20. ;               "Test" einzugeben um "Test.tex" zu laden.
  21. ;               Falls kein File vorgegeben wird, erscheint ein Requester,
  22. ;               mit dessen Hilfe man ein File aus allen "*.tex" auswählen
  23. ;               kann.
  24. ;               Falls der Editor nicht aufgerufen werden soll, so muß man
  25. ;               "." eingeben.
  26. ;
  27.  
  28. execute s:InTeX                              ;Pfad setzen etc.
  29.  
  30. if "{directory}" EQ ""                       ;Kein Verz. -> MFR
  31.   echo "Rufe MFR für TeX-Verzeichnis..."
  32.   mfr >env:TeXdir dir="$DefDir" title="TeX-Verzeichnis" oktext="CD" canceltext="STOP" pattern=~(#?)
  33.   if warn                                    ;wenn "Cancel"
  34.     quit                                     ;dann ganz raus
  35.   endif
  36.   cd "$TeXdir"
  37.   delete env:TeXdir quiet
  38. else
  39.   if NOT "{directory}" EQ "."                  ;Dir wechseln, wenn nicht
  40.                                                ;durch "." explizit verboten
  41.     if exists "{directory}"
  42.       cd "{directory}"
  43.     else
  44.       if exists "$DefDir/{directory}"
  45.         cd "$DefDir/{directory}"
  46.       else
  47.         echo "*"{directory}*" existiert nicht!"
  48.         echo "Rufe MFR für TeX-Verzeichnis..."
  49.         mfr >env:TeXdir dir="$DefDir" title="TeX-Verzeichnis" oktext="CD" canceltext="STOP" pattern=~(#?)
  50.         if warn                                ;wenn "Cancel"
  51.           quit                                 ;dann ganz raus
  52.         endif
  53.         cd "$TeXdir"
  54.         delete env:TeXdir quiet
  55.       endif
  56.     endif
  57.   endif
  58. endif
  59.  
  60. Preview <nil: >nil:                          ;Laß alles sehen
  61. waitforport TEXPREVIEW
  62. ;if warn
  63. ;  echo "Preview ist nicht da!"
  64. ;  quit
  65. ;endif
  66. rx PreviewToBack                             ;aber jetzt noch nicht
  67.  
  68. stack 20000
  69. if "{file}" EQ ""                            ;Falls kein File
  70.   if exists "XDME_Project_File"              ;existiert Project-File?
  71.     runback -9 xdme xdme_project_file
  72.   else
  73.     echo "Rufe MFR für TeX-Text..."          ;sonst: MFR
  74.     mfr >env:TeXFile dir="" title="Bitte TeX-Text wählen" oktext="Edit" canceltext="unnamed" pattern=#?.tex patgad
  75.     if warn                                   ;falls Cancel
  76.       runback -9 xdme                         ;dann "unnamed" :-)
  77.     else
  78.       runback -9 xdme "$TeXFile"
  79.       delete env:TeXFile quiet
  80.     endif
  81.   endif
  82. else
  83.   if "{file}" NOT EQ "."
  84.     runback -9 xdme "{file}.tex"
  85.   endif
  86. endif
  87.  
  88. stack 4000
  89. LaTeX -R                                     ;TeX im Loop-Modus
  90.